home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / netinet / ip.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  1.7 KB  |  59 lines
  1. if (!defined &_IP) {
  2.     eval 'sub _IP {1;}';
  3.     eval 'sub IPVERSION {4;}';
  4.     if (( &BYTE_ORDER ==  &LITTLE_ENDIAN)) {
  5.     }
  6.     if (( &BYTE_ORDER ==  &BIG_ENDIAN)) {
  7.     }
  8.     eval 'sub IP_DF {0x4000;}';
  9.     eval 'sub IP_MF {0x2000;}';
  10.     eval 'sub IP_MAXPACKET {65535;}';
  11.     eval 'sub IPOPT_COPIED {
  12.         local($o) = @_;
  13.         eval "(($o)&0x80)";
  14.     }';
  15.     eval 'sub IPOPT_CLASS {
  16.         local($o) = @_;
  17.         eval "(($o)&0x60)";
  18.     }';
  19.     eval 'sub IPOPT_NUMBER {
  20.         local($o) = @_;
  21.         eval "(($o)&0x1f)";
  22.     }';
  23.     eval 'sub IPOPT_CONTROL {0x00;}';
  24.     eval 'sub IPOPT_RESERVED1 {0x20;}';
  25.     eval 'sub IPOPT_DEBMEAS {0x40;}';
  26.     eval 'sub IPOPT_RESERVED2 {0x60;}';
  27.     eval 'sub IPOPT_EOL {0;}';
  28.     eval 'sub IPOPT_NOP {1;}';
  29.     eval 'sub IPOPT_RR {7;}';
  30.     eval 'sub IPOPT_TS {68;}';
  31.     eval 'sub IPOPT_SECURITY {130;}';
  32.     eval 'sub IPOPT_LSRR {131;}';
  33.     eval 'sub IPOPT_SATID {136;}';
  34.     eval 'sub IPOPT_SSRR {137;}';
  35.     eval 'sub IPOPT_OPTVAL {0;}';
  36.     eval 'sub IPOPT_OLEN {1;}';
  37.     eval 'sub IPOPT_OFFSET {2;}';
  38.     eval 'sub IPOPT_MINOFF {4;}';
  39.     if ( &BYTE_ORDER ==  &LITTLE_ENDIAN ) {
  40.     }
  41.     if ( &BYTE_ORDER ==  &BIG_ENDIAN ) {
  42.     }
  43.     eval 'sub IPOPT_TS_TSONLY {0;}';
  44.     eval 'sub IPOPT_TS_TSANDADDR {1;}';
  45.     eval 'sub IPOPT_TS_PRESPEC {2;}';
  46.     eval 'sub IPOPT_SECUR_UNCLASS {0x0000;}';
  47.     eval 'sub IPOPT_SECUR_CONFID {0xf135;}';
  48.     eval 'sub IPOPT_SECUR_EFTO {0x789a;}';
  49.     eval 'sub IPOPT_SECUR_MMMM {0xbc4d;}';
  50.     eval 'sub IPOPT_SECUR_RESTR {0xaf13;}';
  51.     eval 'sub IPOPT_SECUR_SECRET {0xd788;}';
  52.     eval 'sub IPOPT_SECUR_TOPSECRET {0x6bc5;}';
  53.     eval 'sub MAXTTL {255;}';
  54.     eval 'sub IPFRAGTTL {60;}';
  55.     eval 'sub IPTTLDEC {1;}';
  56.     eval 'sub IP_MSS {576;}';
  57. }
  58. 1;
  59.